home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / graphics / misc / imagedesk3.0 / 68020+ / rexx / default.example.idesk < prev    next >
Encoding:
Text File  |  1997-11-20  |  631 b   |  24 lines
  1. /* ---- standard startup if started via Thumbnail click --------- */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. PARSE ARG iname itype pos
  6.  
  7. /* -------------------------------------------------------------- */
  8.  
  9. GETTHUMBINFO PICWIDTH
  10. picwidth = RESULT
  11. GETTHUMBINFO PICHEIGHT
  12. picheight = RESULT
  13. GETTHUMBINFO PICDEPTH
  14. picdepth = RESULT
  15.  
  16. IDREQUEST "OK" '"'||,
  17.                     'name:  '||iname||'0A'x||,
  18.                     'type:  '||itype||'0A'x||,
  19.                     'width: '||picwidth||'0A'x||,
  20.                     'height:'||picheight||'0A'x||,
  21.                     'depth: '||picdepth||'0A'x||,
  22.                     'pos:   '||pos||,
  23.                '"'
  24.